home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Random.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  40 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " next: " \
  3.   #( #[ 16r05 16r1E 16r21 16rB0 16r72 16r51 16r21 16rB2 16rE1 16r03 16r06 \
  4.         16r22 16r23 16r20 16rA7 16rD0 16rF3 16rB3 16rF2 16r22 16rF3 \
  5.         16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " randInteger: " \
  9.   #( #[ 16r20 16rA7 16r21 16rC2 16r0A 16r2F 16r51 16rC0 16rF3 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " between:and: " \
  13.   #( #[ 16r20 16rA7 16r22 16r21 16rC1 16rC2 16r21 16rC0 16rF3 16rF5] \
  14.     #(  )) >
  15.  
  16. <primitive 112 pTempVar 4  " next " \
  17.   #( #[ 16r10 16rFA 16r01 16r23 16rF1 16r60 16rFA 16r01 16r20 16rF3 16rF5 \
  18.        ] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " first " \
  22.   #( #[ 16r10 16rFA 16r01 16r23 16rF1 16r60 16rFA 16r01 16r20 16rF3 16rF5 \
  23.        ] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 6  " randomize " \
  27.   #( #[ 16rFA 16r00 16rA1 16r60 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 7  " new " \
  31.   #( #[ 16r51 16r60 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 98 #Random \
  35.   <primitive 97 #Random #Object #AmigaTalk:General/Random.st \
  36.    #(  #seed ) \
  37.    #( #next: #randInteger: #between:and: #next #first #randomize #new  ) \
  38.   pTempVar 4 6 > #ordinary >
  39.  
  40.